home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / W-Z / WK⁄GEnie Procedures / Message < prev    next >
Encoding:
Text File  |  1991-05-25  |  912 b   |  64 lines  |  [TEXT/????]
  1. SETGROUP 1,1
  2. SETBOX 1,1
  3. ERASE A1$
  4. SHELL B1%,9003
  5. (If no numbers were entered, this will end the procedure
  6. EMPTY A1$
  7. IF YES END
  8. IF NO CONCAT A1$,,
  9. LET EQUAL S1%,1
  10. LET EQUAL B3%,1
  11. GETBOX D1%,1
  12. TEST D1% = 1
  13. IF YES RECA Captured Text
  14. :FINDTOPICNUMBERS
  15. INSTR A1%,A1$,B3%,,
  16. TEST A1% = 0
  17. IF YES JUMPTO LABELEND
  18. SUBTRACT A1%,B3%
  19. MID$ B1$,B3%,A1%,A1$
  20. :READMESSAGES
  21. TYPE READ^M
  22. PROMPT ?
  23. PAUSE
  24. TYPE B1$
  25. TYPE ^M
  26. PROMPT ?
  27. PAUSE
  28. GETGROUP E%,1
  29. TEST E% = 1
  30. IF YES TYPE NEW^M
  31. IF NO TYPE ALL^M
  32. PROMPT ?
  33. PAUSE
  34. TYPE ^M
  35. ALERT1 <S>croll, <Q>uit ?/GOSUB SCROLL
  36. ALERT2 No replies allowed/GOSUB NOREPLIES
  37. PROMPT continue ?
  38. TEST S1% = 0
  39. IF YES JUMPTO MOVEAHEAD
  40. PAUSE 60
  41. TYPE ^M
  42. :MOVEAHEAD
  43. LET EQUAL S1%,1
  44. PROMPT ?
  45. PAUSE
  46. ADD A1%,B3%
  47. ADD A1%,1
  48. LET EQUAL B3%,A1%
  49. JUMPTO FINDTOPICNUMBERS
  50. :SCROLL
  51. PAUSE 60
  52. TYPE S^M
  53. ALERT2 No replies allowed/GOSUB NOREPLIES
  54. PROMPT continue ?
  55. RETURN
  56. :NOREPLIES
  57. LET EQUAL S1%,0
  58. RETURN
  59. :LABELEND
  60. PAUSE
  61. CLOSE
  62. END
  63.  
  64.